docs/Ordered hashing insertion.htm

   1 <HEAD>
   2 <TITLE>Ordered hashing: insertion
   3 </TITLE>
   4 <BODY>
   5 <H2>
   6 <H3>
   7 <A HREF="../../images/handbook.gif"><IMG SRC="../../images/handbook2.gif" align=left></A>
   8 <A HREF="../../hbook.html">
   9 <IMG SRC="../../images/home_g.gif" hspace = 15 vspace = 4></A><BR>
  10 <A HREF="../../expand.html">
  11 <IMG SRC="../../images/contents_g.gif" hspace = 15 vspace = 4></A><BR>
  12 <A HREF="../../search_a.html">
  13 <IMG SRC="../../images/chapter_g.gif" hspace = 15 vspace = 4></A><BR>
  14 <A HREF="311.ins.c.html"><IMG SRC="../../images/prevalg_g.gif" hspace = 15 vspace = 4></A><BR>
  15 <A HREF="311c.srch.c.html">
  16 <IMG SRC="../../images/nextalg_g.gif" hspace = 15 vspace = 4></A><BR>
  17 <BR></H2>
  18 <HR>
  19 <H2><B>Ordered hashing: insertion
  20 </B></H2><BR>
  21 <CENTER>
  22 <TABLE BORDER>
  23 <TR>
  24 <TD COLSPAN = 1>
  25 <TD rowspan = 1>
  26 <TR><TD>
  27 <XMP>
  28      procedure insert( key : typekey; var r : dataarray );
  29      var i : integer;
  30          temp : typekey;
  31
  32      begin
  33      if n>=m then   Error     {*** table is full ***}
  34      else begin
  35           i := hashfunction( key ) ;
  36           while (not empty(r[i])) and (not deleted(r[i]))
  37                and (r[i].k<>key) do begin
  38                if r[i].k > key then begin
  39                     {*** Exchange key and continue ***}
  40                     temp := key;   key := r[i].k; r[i].k := temp
  41                     end;
  42                i := (i+increment(key)) mod m
  43                end;
  44           if empty(r[i]) or deleted(r[i]) then begin
  45                {*** do insertion ***}
  46                r[i].k := key;
  47                n := n+1
  48                end
  49           else Error     {*** key already in table ***}
  50           end
  51      end;
  52 </XMP></TD></TR></TABLE>
  53 <BR>
  54 <H3><A HREF="ftp://sunsite.dcc.uchile.cl/pub/users/rbaeza/handbook/algs/3/337.ins.p"><IMG SRC="../../images/ftp.xbm" hspace=10>Pascal</A> source (337.ins.p)  </H3></CENTER>
  55 <HR><H4>
  56 <IMG SRC="../../images/aw3.gif" align=left><H5><BR>
  57 &copy <A HREF="http://aw.com">Addison-Wesley </A>Publishing Co. Inc.
  58 </H5></H4><HR>
  59 </BODY>